(mouse-menu-bar-buffers): Put Frames pane behind Buffers.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index c4c110538602e2d56a93c1975c8c7f68731a7c75..51686bfda3af23190cc577465cf78a96fbcbfe0c 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -291,17 +291,17 @@ and selects that window."
                                                          0) ?\ )
                                        "List All Buffers")
                                'list-buffers))))))
-    (setq menu (list menu))
-
     (if (cdr (frame-list))
        (setq menu
-             (cons (cons "Select Frame"
+             (list menu
+                   (cons "Select Frame"
                          (mapcar (lambda (frame)
                                    (cons (cdr (assq 'name
                                                     (frame-parameters frame)))
                                          frame))
-                                 (frame-list)))
-                   menu)))
+                                 (frame-list)))))
+      (setq menu (list menu)))
+
     (setq menu (cons "Buffer and Frame Menu" menu))
 
     (let ((buf (x-popup-menu (if (listp event) event